; DEMONSTRATION OF CX-85 KEYPAD INTERRUPT HANDLER 
; FLORA P. NG 3/08/82 

r 

;This keypad interrupt handler detects and handles all 
; keys pressed on a CX-85 keypad plugged into port 2. 
;This is assembled using Atari Macro Assembler. 

r 

TIMER EQU $30 

TIMER1 EQU 6 

START EQU $9 ; START MASK 

SELECT EQU $A ; SELECT MASK 

OPTION EQU $C ; OPTION MASK 

BPOT EQU $08 ; BPOT BIT MASK 

WBLKD EQU $2 2 4 ; VERTICAL BLANK INTERRUPT 

STRIG1 EQU $285 ; TRIGGER 1 

ATTRACT EQU $4D ; ATTRACT MODE FLAG 

CH EQU $2 FC ; KEYBOARD CODE 

ALLPOT EQU $D208 ; ALL POT STATUS 

PORTA EQU $D300 ; PORTA 

SETVBV EQU $E45C ; ROUTINE FOR SETTING VECTORS 

DOSINI EQU $0C ; WARM START ADDR 

CONSOL EQU $D01F ; CONSOL SWITCH PORT 

BREAK EQU $11 ; BREAK KEY FLAG 

; LOCATED IN PAGE 6 BUT MAY BE REASSEMBLED ELSEWHERE 

r 

; INITIAL ENTRY POINT TO ESTABLISH VBLANK ENTRY 
; SYSTEM RESET KEY RESETS VBLANK VECTORS, 

; HENCE CHAIN TO DOS INIT 
; SAVE VALUE IN DOSINI 
ORG $600 

COLDST: LDA DOSINI 

ST A WRMEXT+1 

LDA DOSINI+1 

ST A WRMEXT+2 

; REPLACE DOSINI WITH WARMS T 
LDA #LOW WARMS T 

STA DOSINI 

LDA #HIGH WARM ST 

STA DOSINI+1 

; CHAIN KEYPAD INTO DEFERRED VBLANK PROCESSING 
; SAVE WBLKD FOR KEYPAD EXIT POINT 
KPADVBI : LDA WBLKD 

STA EXIT+1 



LDA WBLKD+1 

STA EXIT+2 

r 

; REPLACE VVBLKD WITH KEYPAD ENTRY POINT 
LDY #LOW KPAD 

LDX #HIGH KPAD 

LDA #7 ; DEFERRED VBI 

JSR SETVBV 

RTS 

t 

; ENTERED WHEN USER HITS SYSTEM RESET 

; REESTABLISH VBLANK VECTOR 

WARMS T : JSR KPAD VBI 

WRMEXT : JMP 0 ; CHAIN TO DOSINI 


; KEYPAD TRANSLATION TABLE 


KPADTAB : DB 

$0C, $0C 

; FUNCTION 1 

DB 

$14, $34 

; FUNCTION 2 

DB 

$10, $07 

; FUNCTION 3 

DB 

$18, $26 

; FUNCTION 4 

DB 

$1C, $32 

; 0 

DB 

$19, $1F 

; l 

DB 

$1A, $1E 

; 2 

DB 

$1B, $ 1A 

; 3 

DB 

$11, $18 

; 4 

DB 

$12, $1D 

; 5 

DB 

$13, $1B 

; 6 

DB 

$15, $33 

; 7 

DB 

$16, $35 

; 8 

DB 

$17, $30 

; 9 

DB 

$1D, $22 

t • 

DB 

$ 1 F, $0E 

r 

DB 

$ IE , $06 

; TENTER 

DB 

0 

; END OF TABLE 

; ENTERED AT 

EACH VBLANK 

TO READ THE KEYPAD 

KPAD : LDA 

STRIG1 

; KEY PRESSED? 

BNE 

KPADDM 

; EXIT FOR KEY NOT PRESSED 

LDA 

#0 

; RESET ATTRACT MODE 

STA 

ATTRACT 



; DETERMINE VALUE OF KEY PRESSED 

; READ CABLE PIN OF PORT 2 


LDA 


PORTA 



LSR 

A 


LSR 

A 


LSR 

A 


LSR 

A 


STA 

TEMP 


LDA 

ALLPOT 

; READ ALLPOT FOR 5TH CABLE PIN STATUS 

AND 

#BPOT 

; MASK FOR 5TH PIN 

EOR 

#BPOT 

; COMPLEMENT BIT (0 IS VALID) 

ASL 

A 


ORA 

TEMP 

; A HAS KEY VALUE 

LDY 

#0 

; INIT COUNTER 

r 

; S CAN TRANSLATION TABLE 


KPADCK : CMP 

KPADTAB, 

Y ; MATCH KEYPAD TABLE ENTRY? 

BEQ 

KPADMAT 

; JUMP IF MATCH 

INY 


; INC TO NEXT ENTRY 

INY 

LDX 

KPADTAB, 

Y ; END OF TABLE? 

BEQ 

EXIT 

; EXIT FOR END OF TABLE 

BNE 

KPADCK 



; KEY VALUE MATCHES 

; PUT NEW KEYCODE IN CH AND RESET AUTO-REPEAT 


KPADMAT : 

: TAX 


; SAVE KEY VALUE 


INY 


; GET POKEY KEYCODE 


LDA 

KPADTAB, 

Y ; A HAS KEYCODE 


CMP 

#$FF 

; VECTOR ROUTINE? 


BEQ 

KPADFUN 

; EXIT FOR VECTOR ROUTINE 


CMP 

KPADCOD 

; SAME AS PRIOR KEYCODE? 


BEQ 

KPADSAM 

; BRANCH IF SAME 


STA 

KPADCOD 

; ELSE STORE NEW KEYCODE 


STA 

CH 



LDA 

#TIMER 

; RESET TIMER 


STA 

KPADREP 



BNE 

EXITl 


r 

KPADDM : 

LDA 

#$C0 

; LOAD DUMMY VARIABLE 


STA 

KPADCOD 


EXIT1 : 




•k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 


LDA 

#1 

; RESET BRK PRESS FLAG 


STA 

BRKPRS 



************************************* 



BNE 


EXIT 


; SAME AS PRIOR KEY, CHECK AUTO-REPEAT 


KPADSAM : LDX 
DEX 
BNE 
STA 
LDA 
STA 
BNE 

KPADXX : STX 


K PADRE P ; AUTO-REPEAT EXPIRED? 
; DEC TIMER 

KPADXX ; BRANCH IF NOT 

CH ; STORE KEYCODE 

#TIMER1 ; RESET TIMER 

KPADREP 

EXIT1 

KPADREP 


; EXIT THIS VBLANK INTERRUPT 

EXIT: JMP 0 ; CHAIN TO DEFERRED VBLANK 

TEMP: DB 0 ; TEMP VARIABLE 

KPADCOD : DB 0 ; PRIOR KEYCODE 

KPADREP: DB $30 ; AUTO-REPEAT TIMER 


; IF NO $FF IN TRANSLATION TABLE, THE SECTIONS 
; ENCLOSED WITHIN *** MAY BE DELETED 

'k-k-k-k'k'k-k'k-k-k-k'k'k-k-k-k-k-k-k-k'k-k-k'k-k-k-k'k-k-k-k'k'k-k'k'k'k 


BRKPRS : DB 1 ; BREAK PRESS FLAG 


; FUNCTION VECTOR TABLE 


KPADFTB : DW 

KPADF1 ; FI 

VECTOR 

DW 

KPADF2 ; F2 

VECTOR 

DW 

KPADF3 ; F3 

VECTOR 

DW 

KPADF4 ; F4 

VECTOR 

; GET FUNCTION 

VECTOR 


KPADFUN : DEY 



LDA 

KPADFTB, Y 


STA 

KPADFV+1 


INY 



LDA 

KPADFTB, Y 


STA 

KPADFV+2 



; CALL TO FUNCTION VECTOR 


KPADFV : 

JSR 

0 

; CALL TO FUNCTION 


JMP 

EXIT 


KPADF1 : 

LDA 

BRKPRS 



BEQ 

KPADFR 



LDA 

#0 

; BREAK PRESSED 


STA 

BREAK 



STA 

BRKPRS 





LDA 

#$C0 ; LOAD DUMMY KEYCODE 


STA 

KPADCOD 

KPADFR : 

RTS 


KPADF2 : 

LDA 

#OPTION 


STA 

CONSOL 


RTS 


KPADF3 : 

LDA 

#SELECT 


STA 

CONSOL 


RTS 


KPADF4 : 

LDA 

# START 


STA 

CONSOL 


RTS 



'k-k-k-k-k-k-k-k-k-k-k-k-k-k-k'k'k-k-k'k-k-k-k'k-k-k-k-k-k-k-k'k'k-k-k-k-k'k 


END COLDST 



